home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / redakcyjne / programy / PSPad editor 4.5.4 build 2356 beta / pspad454inst_en.exe / {app} / Context / OtherCad.DEF < prev    next >
Text File  |  2003-08-30  |  10KB  |  234 lines
  1. ; PSPad clip definition file for OtherCad
  2. ; Authors:  AleÜ ╚ern², Ing. Ivan SlepiΦka, Petr SlepiΦka
  3. ;
  4. [OPEN | Open any file]
  5. @open;/ otevre libovolny soubor / *31.3.2002* Ing. Ivan Slepicka
  6. / pouzite promenne: a=radek retezce i=pracovni promenna
  7.  a = sv 390;a += 1;jmpr 2;/ a = cislo radku v OCP programu (pouzije se pro zapis stringu)
  8. / radek cislo "a" pro zapis stringu - nemenit!
  9.  a$ = "";a$ = foname "*.*" "Otev°enφ libovolnΘho souboru (*.*)|*.*";if a$ == "";stop "Nebyl vybrßn ₧ßdn² soubor"
  10.  i = exist a$;if i != 0;jmpr 2
  11.  i = 1;msg cnf i "Chyba otevφrßnφ souboru - opakovat pokus?";if i == 1;jmpr -2;else;stop
  12.  msg info a$ " je otev°en";/ tento °ßdek je jen informaΦnφ a je mo₧no ho vymazat
  13. / tady MUSI nasledovat vhodna rutina pro dalsi zpracovani souboru
  14.  
  15. [OCD_NEW | Otev°i nov² v²kres]
  16. @ocd_new;/ ulozi rozpracovany vykres, otevre novy cisty a umozni ho pojmenovat / *19.12.2000* Ales Cerny
  17.  run 1 1 "NEW.OCP";stop
  18. |
  19.  
  20. [OCD_OPEN | Otev°i jin² v²kres]
  21. @ocd_open;/ ulozi rozpracovany vykres a otevre jiny / *5.10.2001* Ing. Ivan Slepicka
  22.  run 1 1 "F3.OCP";stop
  23. |
  24.  
  25. [OCD_SAVE | Ulo₧ aktußlnφ v²kres]
  26. @ocd_save;/ ulozi aktualni vykres / sablona / *19.12.2000* Ales Cerny / *31.3.2002* Ing. Ivan Slepicka
  27. / pouzite promenne: a=radek retezce i=pracovni promenna
  28.  i = sv 0;if i == 0;msg err "OtherCAD nenφ odklφΦovßn!";stop
  29.  a = sv 390;a += 1;jmpr 2;/ a = cislo radku v OCP programu (pouzije se pro zapis stringu)
  30. / radek cislo "a" pro zapis stringu - nemenit!
  31.  sv 47 0;a$ = name;a$ = norm a$;if a$ == "";stop "V²kres nemß jmΘno!"
  32.  a$ = norm name ".OCD" a$;save "" a$;i = sv 77;if i == 0;msg info a$ " byl ulo₧en.";stop
  33.  msg err a$ ô NELZE ULOÄIT!";stop;/ ukonceni programu
  34. |
  35.  
  36. [OCD_SAVEAS | Ulo₧ aktußlnφ v²kres pod jin²m jmΘnem]
  37. @ocd_saveas;/ ulozi aktualni vykres pod jinym jmenem / sablona / *19.12.2000* Ales Cerny
  38.  run 1 1 "SAVEAS.OCP";stop
  39. |
  40.  
  41. [PUMENU | Rolovacφ menu]
  42. @pumenu;/ rolovaci menu o maximalne 32 radcich / sablona / *5.10.2001* Ing. Ivan Slepicka
  43. / pouzite promenne: i=cislo radku pumenu p=vyhodnoceni vyberu z pumenu
  44. / pumenu je pripraveno na maximalni moznou delku = 32 radku; delka se upravi odebranim nepotrebnych radku
  45.  i = 0
  46.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i1
  47.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i2
  48.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i3
  49.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i4
  50.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i5
  51.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i6
  52.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i7
  53.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i8
  54.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i9
  55.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i10
  56.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i11
  57.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i12
  58.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i13
  59.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i14
  60.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i15
  61.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i16
  62.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i17
  63.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i18
  64.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i19
  65.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i20
  66.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i21
  67.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i22
  68.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i23
  69.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i24
  70.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i25
  71.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i26
  72.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i27
  73.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i28
  74.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i29
  75.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i30
  76.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i31
  77.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i32
  78.  p = pumenu i 0 250 250
  79. / nasleduje vyhodnoceni vyberu / adresovani je nutno upravit!!!
  80.   on p 0 @0 1 @1 2 @2 3 @3 4 @4 5 @5 6 @6 7 @7 8 @8 9 @9 10 @10 11 @11 12 @12 13 @13 14 @14 15 @15 16 @16
  81.   on p 17 @17 18 @18 19 @19 20 @20 21 @21 22 @22 23 @23 24 @24 25 @25 26 @26 27 @27 28 @28 29 @29 30 @30 31 @31 32 @32
  82. |
  83.  
  84. [GET 1 | ╚ti rßmeΦek]
  85. / a=1...16 poradove cislo dialog, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  86. / d=0/1 zapusteny/vystouply, e$=napoveda
  87.  dlg 1 a get b c X Y x y d e$
  88. |
  89.  
  90. [SET 1 | Nastav rßmeΦek]
  91. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  92. / d=0/1 zapusteny/vystouply, e$=napoveda
  93.  dlg 1 a set b c X Y x y d e$
  94. |
  95.  
  96. [GET 2 | ╚ti nßpis]
  97. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  98. / d$=napis, e$=napoveda
  99.  dlg 2 a get b c X Y x y d$ e$
  100. |
  101.  
  102. [SET 2 | Nastav nßpis]
  103. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  104. / d=0...255 barva, e$=napis, f$=napoveda
  105.  dlg 2 a set b c X Y x y d e$ f$
  106. |
  107.  
  108. [GET 3.1 | ╚ti CEL▌ editaΦnφ box]
  109. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  110. / d$=editovatelny text v okne, e$=napoveda
  111.  dlg 3 a get b c X Y x y d$ e$
  112. |
  113.  
  114. [GET 3.2 | ╚ti TEXT editaΦnφho boxu]
  115. / a=1...16 poradove cislo dialogu, d$=editovatelny text v okne, ostatni se nezjistuje
  116.  dlg 3 a get -1 -1 -1 -1 -1 -1 d$ -1
  117. |
  118.  
  119. [SET 3 | Nastav editaΦnφ box]
  120. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  121. / d=0...255 barva, e$=text, f$=napoveda
  122.  dlg 3 a set b c X Y x y d e$ f$
  123. |
  124.  
  125. [GET 4.1 | ╚ti hodnoty tlaΦφtka]
  126. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1/2 nedostupny/dostupny/default, X,Y=poloha, x,y=velikost,
  127. / d$=napis na tlacitku, e$=napoveda
  128.  dlg 4 a get b c X Y x y d$ e$
  129. |
  130.  
  131. [GET 4.2 | ╚ti stav tlaΦφtek - modßlnφ verze]
  132.  dlg status a
  133.  on a 0 +@0 1 +@1 2 +@2;/ atd az ... 16 +@16
  134. |
  135.  
  136. [GET 4.3 | ╚ti stav tlaΦφtek - nemodßlnφ verze]
  137.  dlg status a b
  138.  if a == 0;if b == 0;stop;/ jmp +@end;/ je potreba si vybrat variantu zakonceni stopkou nebo skokem na end
  139.  on a 0 +@0 1 +@1 2 +@2;/ atd az ... 16 +@16
  140. |
  141.  
  142. [INPUT 2R-DLG | Dvou°ßdkov² input dialog]
  143. a = sv 390;a$ = "Zadßnφ 1. hodnoty"
  144. b = sv 390;b$ = "Zadßnφ 2. hodnoty"
  145. edit mshow "1. hodnota = " a$ "1. hodnota" "2. hodnota = " b$ "2. hodnota" "NADPIS"
  146. edit get "" a$ b$
  147. |
  148.  
  149. [SET 4 | Nastav tlaΦφtko]
  150. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1/2 nedostupny/dostupny/default, X,Y=poloha, x,y=velikost,
  151. / d$=napis na tlacitku, e$=napoveda
  152.  dlg 4 a set b c X Y x y d$ e$
  153. |
  154.  
  155. [GET 5.1 | ╚ti hodnoty checkboxu]
  156. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  157. / d$=napis u checkboxu, e=0/1 nezaÜkrtnut²/zaÜkrtnut², f$=napoveda
  158.  dlg 5 a get b c X Y x y d$ e f$
  159. |
  160.  
  161. [GET 5.2 | ╚ti stav checkboxu]
  162. / a=1...16 poradove cislo dialogu, e=0/1 nezaÜkrtnut²/zaÜkrtnut²
  163.  dlg 5 a get -1 -1 -1 -1 -1 -1 -1 e -1
  164. |
  165.  
  166. [SET 5 | Nastav checkbox]
  167. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  168. / d=0...255 barva, e$=napis u checkboxu, f=0/1 nezaÜkrtnut²/zaÜkrtnut², g$=napoveda
  169.  dlg 5 a set b c X Y x y d e$ f g$
  170. |
  171.  
  172. [GET 6.1 | ╚ti hodnoty radiobutonu]
  173. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  174. / d$=napis u radiobutonu, e=0/1 nezamacknuty/zamacknuty, f$=napoveda
  175.  dlg 6 a get b c X Y x y d$ e f$
  176. |
  177.  
  178. [GET 6.2 | ╚ti stav radiobutonu]
  179. / a=1...16 poradove cislo dialogu, e=0/1 nezamacknuty/zamacknuty
  180.  dlg 6 a get -1 -1 -1 -1 -1 -1 -1 e -1
  181. |
  182.  
  183. [SET 6 | Nastav radiobuton]
  184. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  185. / d=0...255 barva, e$=napis u radiobutonu, f=0/1 nezamacknuty/zamacknuty, g$=napoveda
  186.  dlg 6 a set b c X Y x y d e$ f g$
  187. |
  188.  
  189. [GET 7.1 | ╚ti skupinu 2+2+2+2+3 radiobuton∙]
  190. / a=1/4/7/10/13 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  191. / d$=nadpis skupiny, e$=napoveda
  192.  dlg 7 a get b c X Y x y d$ e$
  193. |
  194.  
  195. [SET 7.1 | Nastav skupinu 2+2+2+2+3 radiobuton∙]
  196. / a=1/4/7/10/13 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  197. / d=0...255 barva, e$=nadpis skupiny, f$=napoveda
  198.  dlg 7 a set b c X Y x y d e$ f$
  199. |
  200.  
  201. [GET 7.2 | ╚ti stav tlaΦφtka ze skupiny 2+2+2+2+3 radiobuton∙]
  202. / a=2+3/5+6/8+9/11+12/14+15+16 poradove cislo tlacitka,d=0/1 nezamacknuty/zamacknuty
  203.  dlg 7 a get -1 -1 d
  204. |
  205.  
  206. [SET 7.2 | Nastav tlaΦφtko ze skupiny 2+2+2+2+3 radiobuton∙]
  207. / a=2+3/5+6/8+9/11+12/14+15+16 poradove cislo tlacitka, b=0/1 nedostupny/dostupny, c=0...255 barva, d$=napis u tlacitka,
  208. / e=0/1 nezamacknuty/zamacknuty
  209.  dlg 7 a set b c d$ e
  210. |
  211.  
  212. [GET 8.1 | ╚ti skupinu 2+3+3+4 radiobuton∙]
  213. / a=1/4/8/12 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  214. / d$=nadpis skupiny, e$=napoveda
  215.  dlg 8 a get b c X Y x y d$ e$
  216. |
  217.  
  218. [GET 8.2 | ╚ti stav tlaΦφtka ze skupiny 2+3+3+4 radiobuton∙]
  219. / a=2+3/5+6+7/9+10+11/13+14+15+16 poradove cislo tlacitka, d=0/1 nezamacknuty/zamacknuty
  220.  dlg 8 a get -1 -1 d
  221. |
  222.  
  223. [SET 8.1 | Nastav skupinu 2+3+3+4 radiobuton∙]
  224. / a=1/4/8/12 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  225. / d=0...255 barva, e$=nadpis skupiny, f$=napoveda
  226.  dlg 8 a set b c X Y x y d e$ f$
  227. |
  228.  
  229. [SET 8.2 | Nastav tlaΦφtko ze skupiny 2+3+3+4 radiobuton∙]
  230. / a=2+3/5+6+7/9+10+11/13+14+15+16 poradove cislo tlacitka, b=0/1 nedostupny/dostupny, c=0...255 barva, d$=napis u tlacitka,
  231. / e=0/1 nezamacknuty/zamacknuty
  232.  dlg 8 a set b c d$ e
  233. |
  234.